home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / compare_module / Install < prev   
Encoding:
Text File  |  1996-10-14  |  4.2 KB  |  123 lines
  1. ; $VER: compare.module_Install 1.1 (14.10.96)
  2. ; Installer script by Leo Davidson.
  3.  
  4. ;*****************************************************************************
  5.  
  6. ;- Welcome -------------------------------------------------------------------
  7.  
  8. (welcome "compare.module")
  9.  
  10. ;- Introductory message ------------------------------------------------------
  11.  
  12. (message "This installer will install compare.module "
  13.          "for you.\n\n "
  14.          "You must already have Directory Opus 5.5 "
  15.          "correctly installed on your harddisk. ")
  16.  
  17. ;- Set where to do the install to --------------------------------------------
  18.  
  19. (set #target "DOpus5:")
  20. (set @default-dest #target)
  21.  
  22. (if (NOT (exists "DOpus5:" (noreq)))
  23.     (abort "DOpus 5.5 is not correctly installed.\n\n"
  24.            "The \"DOpus5:\" assign could not be found.")
  25. )
  26.  
  27. ;- 1) Install compare.module and guide ---------------------------------------
  28.  
  29. (copylib (prompt "\"compare.module\" will be copied to "
  30.                  "\"DOpus5:modules\" unless a newer version "
  31.                  "already exists.")
  32.          (help @copylib-help)
  33.          (confirm)
  34.          (source "compare.module")
  35.          (dest "DOpus5:modules")
  36.          (optional force)
  37. )
  38.  
  39. ; The guide has a version string and so can be copied with Copylib.
  40.  
  41. (copylib (prompt "\"compare.module.guide\" will be copied to "
  42.                  "\"DOpus5:help\" unless a newer version "
  43.                  "already exists.")
  44.          (help @copylib-help)
  45.          (confirm)
  46.          (source "compare.module.guide")
  47.          (dest "DOpus5:help")
  48.          (optional force)
  49. )
  50.  
  51. ; Only copy the guide's icon if one doesn't already exist so we don't mess-up
  52. ; the user's snapshot/image/tooltypes.
  53.  
  54. (if (NOT (exists "DOpus5:help/compare.module.guide.info"))
  55.     (copyfiles (prompt "An icon for the AmigaGuide will be copied.")
  56.                (help @copyfiles-help)
  57.                (source "compare.module.guide.info")
  58.                (dest "DOpus5:help")
  59.                (noposition)
  60.                (optional force)
  61.                (confirm)
  62.     )
  63. )
  64.  
  65. ;- 2) Install optional example button-bank -----------------------------------
  66.  
  67. (if (askbool (prompt "Would you like to install a button bank "
  68.                      "with an example compare button which you "
  69.                      "can drag'n'drop into your existing setup?")
  70.              (help "Installing it won't hurt, but you don't "
  71.                    "have to.")
  72.              (default 1)
  73.              (choices "Yes Please" "No Thanks")
  74.     )
  75.     (
  76.        (copyfiles (source "compare-examples")
  77.                   (dest "DOpus5:Buttons")
  78.                   (optional force))
  79.        (message "The example button bank has been installed.\n\n"
  80.                 "To open it, open a DOpus lister and go to "
  81.                 "\"DOpus5:Buttons\" and double-click on the "
  82.                 "file called \"compare-examples\".")
  83.     )
  84. )
  85.  
  86. ;- Install catalogs ----------------------------------------------------------
  87.  
  88. (copyfiles (prompt "Select which languages you would like "
  89.                    "catalogs installed for. English is "
  90.                    "built-in.")
  91.            (help @copyfiles-help)
  92.            (source "catalogs")
  93.            (dest "DOpus5:catalogs")
  94.            (choices "deutsch")
  95.            (optional force)
  96.            (confirm)
  97. )
  98.  
  99. (message "If you are willing to translate compare "
  100.          "into another language you can find the "
  101.          "translation files in the archive.")
  102.  
  103. ;- Misc Messages -------------------------------------------------------------
  104.  
  105. (message "Please note that if you have installed "
  106.          "MWB_DOpus 8 (which came with Opus 5.5) "
  107.          "you will have a very nice toolbar icon "
  108.          "to use for your compare button:\n\n"
  109.          "\"Scales.small\" (and \"Scales.small.info\")")
  110.  
  111. ;- All Done ------------------------------------------------------------------
  112.  
  113. (exit "compare.module is now installed.\n\n"
  114.       "Please take the time to read through the "
  115.       "\"compare.module.guide\" file in "
  116.       "\"DOpus5:Help\".\n\n"
  117.       "If it doesn't work immediately, you may "
  118.       "need to reboot or restart DOpus5.5 for the "
  119.       "new module to be available."
  120.       (quiet))
  121.  
  122. ;- That's All Folks ----------------------------------------------------------
  123.